Nibble Magazine/nib18.dsk/AMPER-CATALOG DEMO.bas

BASIC Source File | 2023-02-26 | 236b | 8 lines

10  PRINT  CHR$(4);"BLOAD AMPER-CATALOG,A$300": CALL 768
15  INPUT "INSERT DISK AND PRESS RETURN";A$
20  DIM C$(106)
30  & C$(1)
40  FOR I = 1 TO 106
50  IF C$(I) = ""  THEN  PRINT I;" FILES": END
60  PRINT  LEN(C$(I)),C$(I)
70  NEXT I